home *** CD-ROM | disk | FTP | other *** search
/ HTBasic 9.3 / HTBasic 9.3.iso / 83win / data1.cab / Basic_Plus_Examples / STRPWDGT < prev    next >
Text File  |  2001-03-02  |  2KB  |  52 lines
  1. 10    ! ************************************************************
  2. 20    ! Example: STRIPCHART Widget
  3. 30    !
  4. 40    ! This program builds a scrolling STRIPCHART widget
  5. 50    ! that displays three triangular waveforms.
  6. 60    !
  7. 70    ! ************************************************************
  8. 80    !
  9. 90       DIM Nval(1:3)
  10. 100       ASSIGN @Stp TO WIDGET "STRIPCHART"
  11. 110       CONTROL @Stp;SET ("X":50,"Y":25,"WIDTH":450,"HEIGHT":300)
  12. 120       CONTROL @Stp;SET ("TITLE":" Example: STRIPCHART Widget")
  13. 130       CONTROL @Stp;SET ("SYSTEM MENU":"Quit")
  14. 140       ON EVENT @Stp,"SYSTEM MENU" GOTO Finis
  15. 150   !
  16. 160   ! Set three traces, scroll 1/10th of display, update all traces in parallel
  17. 170   !
  18. 180       CONTROL @Stp;SET ("TRACE COUNT":3,"MINIMUM SCROLL":10,"SHARED X":1)
  19. 190   !
  20. 200   ! Set X-axis and Y-axis origin, range, and labeling
  21. 210   !
  22. 220       CONTROL @Stp;SET ("CURRENT AXIS":"Y")
  23. 230       CONTROL @Stp;SET ("ORIGIN":-4,"RANGE":8,"AXIS LABEL":"    Y-Axis Information")
  24. 240       CONTROL @Stp;SET ("CURRENT AXIS":"X")
  25. 250       CONTROL @Stp;SET ("ORIGIN":0,"RANGE":10,"AXIS LABEL":"X-Axis Information")
  26. 260   !
  27. 270   ! Set three traces and set POINT CAPACITY = 0 (do not save data)
  28. 280   !
  29. 290       CONTROL @Stp;SET ("CURRENT TRACE":1)
  30. 300       CONTROL @Stp;SET ("TRACE PEN":1,"TRACE LABEL":"Trace 1")
  31. 310       CONTROL @Stp;SET ("CURRENT TRACE":2)
  32. 320       CONTROL @Stp;SET ("TRACE PEN":2,"TRACE LABEL":"Trace 2")
  33. 330       CONTROL @Stp;SET ("CURRENT TRACE":3)
  34. 340       CONTROL @Stp;SET ("TRACE PEN":3,"TRACE LABEL":"Trace 3")
  35. 350       CONTROL @Stp;SET ("CURRENT TRACE":0,"POINT CAPACITY":0)
  36. 360   !
  37. 370   ! Display a pattern of triangle waves
  38. 380   !
  39. 390       DATA 1,-1,3
  40. 400       READ Nval(*)
  41. 410       FOR N=0 TO 1000
  42. 420           WAIT 1
  43. 430           CONTROL @Stp;SET ("POINT LOCATION":N,"VALUES":Nval(*))
  44. 440           Nval(1)=-Nval(1)
  45. 450           Nval(2)=-Nval(2)
  46. 460           Nval(3)=-Nval(3)
  47. 470       NEXT N
  48. 480   !
  49. 490  Finis:!
  50. 500       ASSIGN @Stp TO *  ! Delete STRIPCHART widget
  51. 510       END
  52.